home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / menustuf.sit / Example_use_of_submenus.bin / Example use of submenus
Encoding:
Text File  |  1990-02-19  |  1.2 KB  |  21 lines  |  [TEXT/MPS ]
  1. AddMenu Quick PInterfaces ╢
  2. 'Set SaveDirectory `Directory`; Directory "{TMLPInterfaces}"; For ThisFile in ┼.p; '╢
  3. 'AddMenu PInterfaces "{ThisFile}" "Open -r ╢"╢{TMLPInterfaces╢}{ThisFile}╢""; End; '╢
  4. 'Directory "{SaveDirectory}"; DemoteMenu PInterfaces; SetSubMenu Quick PInterfaces PInterfaces'
  5. AddMenu Quick AIncludes ╢
  6. 'Set SaveDirectory `Directory`; Directory "{AIncludes}"; For ThisFile in ┼.a; '╢
  7. 'AddMenu AIncludes "{ThisFile}" "Open -r ╢"╢{AIncludes╢}{ThisFile}╢""; End; '╢
  8. 'Directory "{SaveDirectory}"; DemoteMenu AIncludes; SetSubMenu Quick AIncludes AIncludes'
  9. AddMenu Quick RIncludes ╢
  10. 'Set SaveDirectory `Directory`; Directory "{RIncludes}"; For ThisFile in ┼.r; '╢
  11. 'AddMenu RIncludes "{ThisFile}" "Open -r ╢"╢{RIncludes╢}{ThisFile}╢""; End; '╢
  12. 'Directory "{SaveDirectory}"; DemoteMenu RIncludes; SetSubMenu Quick RIncludes RIncludes'
  13. AddMenu Quick CIncludes ╢
  14. 'Set SaveDirectory `Directory`; Directory "{CIncludes}"; For ThisFile in ┼.h; '╢
  15. 'AddMenu CIncludes "{ThisFile}" "Open -r ╢"╢{CIncludes╢}{ThisFile}╢""; End; '╢
  16. 'Directory "{SaveDirectory}"; DemoteMenu CIncludes; SetSubMenu Quick CIncludes CIncludes'
  17. AddMenu Quick '(-' ''
  18. AddMenu Quick 'Project' ''
  19. DemoteMenu Project
  20. SetSubMenu Quick Project Project
  21.